home *** CD-ROM | disk | FTP | other *** search
/ GFX Sensations 1 / Graphic Sensations - Volume 1.iso / tools / amiga / 3d_tools / irit40s.lha / Irit / irit.el < prev    next >
Encoding:
Text File  |  1993-12-30  |  7.1 KB  |  196 lines
  1. ; 
  2. ; irit.el - Definitions of IRIT mode for emacs editor.
  3. ; 
  4. ; Author:    Gershon Elber
  5. ;         Computer Science Dept.
  6. ;         University of Utah
  7. ; Date:    Tue May 14 1991
  8. ; Copyright (c) 1991, Gershon Elber
  9. ;
  10. ; This file defines an environment to run edit and execute IRIT programs.
  11. ; Such a program should have a '.irt' extension in order it to be in
  12. ; irit-mode major mode. Several new functions are provided to communicate
  13. ; between the editted file and the solid modeller:
  14. ;
  15. ; 1. send-line-to-irit - sends a single line to the solid modeller for
  16. ;    execution. A line is defined from current position to the next
  17. ;    semicolon ';'. If however several commands exists on the same line
  18. ;    they will all be send as one line.
  19. ;    Bounded to Meta-E by default.
  20. ; 2. send-region-to-irit - sends the region from the current mark (mark-marker)
  21. ;    to current position (point-marker) to the solid modeller. This function
  22. ;    is convenient for sending a large block of commands.
  23. ;    Bounded to Meta-R by default.
  24. ; 3. send-mini-buffer-to-irit - sends a line retrieved via the mini buffer to
  25. ;    the solid modeller for execution. The line is appended with a new line
  26. ;    and is echoed to the irit-solid-modeller buffer if irit-echo-program.
  27. ;    Bounded to Meta-S by default.
  28. ;
  29. ; Both functions checks for existance of a buffer named irit-solid-modeller
  30. ; and a process named "irit" hooked to it, and will restart a new process
  31. ; or buffer if none exists. The program to execute as process "irit" is
  32. ; defined by the irit-program constant below.
  33. ;
  34.  
  35. (defvar irit-program "irit"
  36.   "*The executable to run for irit-solid-modeller buffer.")
  37.  
  38. (defvar irit-echo-program nil
  39.   "*Control echo of executed commands to irit-solid-modeller buffer.")
  40.  
  41. (defvar irit-mode-map nil "")
  42. (if irit-mode-map
  43.     ()
  44.   (setq irit-mode-map (make-sparse-keymap))
  45.   (define-key irit-mode-map "\M-s" 'send-mini-buffer-to-irit)
  46.   (define-key irit-mode-map "\M-e" 'send-line-to-irit)
  47.   (define-key irit-mode-map "\M-r" 'send-region-to-irit))
  48.  
  49. ;;;
  50. ;;; Define the irit-mode
  51. ;;;
  52. (defun irit-mode ()
  53.   "Major mode for editing and executing IRIT files.
  54.  
  55. see send-line-to-irit and send-region-to-irit for more."
  56.   (interactive)
  57.   (use-local-map irit-mode-map)
  58.   (setq major-mode 'irit-mode)
  59.   (setq mode-name "Irit")
  60.   (run-hooks 'irit-mode-hook))
  61.  
  62. ;;;
  63. ;;; Define send-min-buffer-to-irit - send one line prompt for at the mini
  64. ;;; buffer, to the irit buffer.
  65. ;;;
  66. (defun send-mini-buffer-to-irit ()
  67.   "Sends one line of code from mini-buffer to the IRIT program.
  68.  
  69. The IRIT solid modeller buffer name is irit-solid-modeller and the 
  70. process name is 'irit'. If none exists, a new one is created.
  71.  
  72. The name of the irit program program to execute is stored in irit-program
  73. and may be changed."
  74.   (interactive)
  75.   (if (equal major-mode 'irit-mode)
  76.     (progn
  77.       (make-irit-buffer)     ; In case we should start a new one.
  78.       (let* ((crnt-buffer (buffer-name))
  79.          (string-copy (read-from-minibuffer "Irit> ")))
  80.     (switch-to-buffer-other-window (get-buffer "irit-solid-modeller"))
  81.     (end-of-buffer)
  82.     (if irit-echo-program
  83.       (insert string-copy))
  84.     (if (not (pos-visible-in-window-p))
  85.       (recenter 3))
  86.     (process-send-string "irit" string-copy)
  87.     (process-send-string "irit" "\n")
  88.     (switch-to-buffer-other-window (get-buffer crnt-buffer))))
  89.     (message "Should be invoked in irit-mode only.")))
  90. ;;;
  91. ;;; Define send-line-to-irit - send from current cursor position to next
  92. ;;; semicolon detected.
  93. ;;;
  94. (defun send-line-to-irit ()
  95.   "Sends one line of code from current buffer to the IRIT program.
  96.  
  97. Use to execute a line in the IRIT solid modeller. A line is anything
  98. that is terminated by a semicolon, but is at least one line of text so
  99. multiple commands per line (with several semicolons) are still
  100. considered a single line.
  101.  
  102. The IRIT solid modeller buffer name is irit-solid-modeller and the 
  103. process name is 'irit'. If none exists, a new one is created.
  104.  
  105. The name of the irit program program to execute is stored in irit-program
  106. and may be changed."
  107.   (interactive)
  108.   (if (equal major-mode 'irit-mode)
  109.     (progn
  110.       (make-irit-buffer)        ; In case we should start a new one.
  111.       (beginning-of-line)
  112.       (let ((start-mark (point-marker)))
  113.     (search-forward ";")
  114.     (let ((end-one-mark (point-marker)))
  115.       (goto-char start-mark)
  116.       (beginning-of-line)
  117.       (next-line 1)
  118.       (let* ((crnt-buffer (buffer-name))
  119.              (end-two-mark (point-marker))
  120.              (end-max-mark (max end-one-mark end-two-mark))
  121.          (string-copy (buffer-substring start-mark end-max-mark)))
  122.         (switch-to-buffer-other-window (get-buffer "irit-solid-modeller"))
  123.         (end-of-buffer)
  124.         (if irit-echo-program
  125.           (insert string-copy))
  126.         (set-marker (process-mark (get-process "irit")) (point-marker))
  127.         (if (not (pos-visible-in-window-p))
  128.           (recenter 3))
  129.         (switch-to-buffer-other-window (get-buffer crnt-buffer))
  130.         (process-send-region "irit" start-mark end-max-mark)
  131.         (goto-char end-max-mark)
  132.         (if (equal "\n" (buffer-substring (point-marker)
  133.                           (+ 1 (point-marker))))
  134.           (process-send-string "irit" "\n"))  
  135.         (if (> end-one-mark end-two-mark)
  136.           (forward-char 1))))))
  137.     (message "Should be invoked in irit-mode only.")))
  138.  
  139. ;;;
  140. ;;; Define send-region-to-irit - send from current cursor position to
  141. ;;; current marker.
  142. ;;;
  143. (defun send-region-to-irit ()
  144.   "Sends a region of code from current buffer to the IRIT program.
  145.  
  146. When this function is invoked on an IRIT file it send the region from current
  147. point to current mark to the irit solid modeller.
  148.  
  149. The IRIT solid modeller buffer name is irit-solid-modeller and the
  150. process name is 'irit'. If none exists, a new one is created.
  151.  
  152. The name of the irit program program to execute is stored in irit-program
  153. and may be changed."
  154.   (interactive)
  155.   (if (equal major-mode 'irit-mode)
  156.     (progn
  157.       (make-irit-buffer)     ; In case we should start a new one.
  158.       (copy-region-as-kill (mark-marker) (point-marker))
  159.       (let ((crnt-buffer (buffer-name)))
  160.     (switch-to-buffer-other-window (get-buffer "irit-solid-modeller"))
  161.     (end-of-buffer)
  162.     (if irit-echo-program
  163.       (yank))
  164.     (set-marker (process-mark (get-process "irit")) (point-marker))
  165.     (if (not (pos-visible-in-window-p))
  166.       (recenter 3))
  167.     (switch-to-buffer-other-window (get-buffer crnt-buffer))
  168.     (process-send-region "irit" (mark-marker) (point-marker))))
  169.     (message "Should be invoked in irit-mode only.")))
  170.  
  171. ;;;
  172. ;;; Switch to "irit-solid-modeller" buffer if exists. If not, creates one and
  173. ;;; execute the program defined by irit-program.
  174. ;;;
  175. (defun make-irit-buffer ()
  176.   "Switch to irit-solid-modeller buffer or create one if none exists"
  177.   (interactive)
  178.   (if (get-buffer "irit-solid-modeller")
  179.     (if (not (get-process "irit"))
  180.       (progn
  181.     (message "Starting IRIT solid modeller...")
  182.     (start-process "irit" "irit-solid-modeller" irit-program)
  183.     (process-send-string "irit" "\n")
  184.     (message "Done.")))
  185.     (progn
  186.       (message "Starting IRIT solid modeller...")
  187.       (start-process "irit" "irit-solid-modeller" irit-program)
  188.       (process-send-string "irit" "\n")
  189.       (message "Done."))))
  190.  
  191. ;;;
  192. ;;; Autoload irit-mode on any file with irt extension. 
  193. ;;;
  194. (setq auto-mode-alist (append '(("\\.irt$" . irit-mode))
  195.                   auto-mode-alist))
  196.